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ABSTRACT 


The  IR-RAT  was  developed  as  the  result  of  a  need  to  remotely  control  computers.  It  is  a 
microcontroller  based  infrared  remote  control  interface.  This  document  describes  its  design  and 
operation  so  that  it  might  be  used  or  altered  for  use  in  the  future. 
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IR  -  RAT 

InfraRed  Remote  Activity  Transceiver 
1.  Introduction 

The  IR  RAT  was  developed  and  designed  at  Carnegie  Mellon  as  the  result  of  a  need  to  use 
an  IR  remote  control  to  operate  computer  software  on  several  platforms.  Therefore,  the  computer- 
RAT  interface  was  made  to  be  as  simple  as  possible  to  allow  for  the  most  flexible  use  among 
different  computers.  The  design  and  code  information  is  publicly  available.  The  end  result  of  the 
design  is  a  small  box  with  the  following  features... 

Motorola  6811  microcontroller 

8k  x  8  EPROM  for  code  and  data  storage 

Space  for  8k  x  8  RAM  for  software  development 

40  Khz  carrier  based  IR  receiver 

IR-LED  capable  of  transmitting  up  to  a  60  Khz  carrier 

Standard  RS-232  serial  interface 

Powered  from  a  9V  DC  adaptor 

The  intended  use  for  this  box  is  to  act  as  an  IR  remote  control  interface  for  any  computer. 
It  was  designed  to  teach  a  learning  remote  a  set  of  commands  which,  when  sent  by  the  learning 
remote,  would  cause  a  command  to  be  sent  to  the  host  computer  via  the  serial  port.  While  this  is 
the  application  for  which  the  RAT  is  programmed,  it  could  conceivably  be  used  for  a  wide  variety 
of  applications.  These  include  control  by  any  40  Khz  carrier  based  IR  remote  control  and  control 
of  virtually  any  IR  remote  capable  device. 

This  document  is  intended  to  explain  the  design  and  implementation  of  the  RAT  so  that 
others  can  understand  its  functionality  and  possibly  adapt  it  to  meet  their  own  needs. 

1.1  CONVENTIONS 

Throughout  this  manual  figures  which  represent  hexadecimal  values  will  be  preceded  by  a 
$,  values  which  represent  binary  values  will  be  preceded  by  a  %,  and  decimal  values  are  not 
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preceded  by  any  character. 


2.  Hardware  design 


2.1  MICROCONTROLLER 

The  IR  RAT  is  based  upon  the  Motorola  6811  family  microcontroller.  These  arc  fairly 
general  purpose  8-bit  microcontrollers  that  are  readily  available.  Most  of  the  681 1  microcontrollers 
that  are  available  in  a  52  pin  PLCC  or  ceramic  quad  pack  are  useable.  For  development,  the 
MC68HC11A8FN1  was  used  to  take  advantage  of  the  built  in  buffalo  monitor  that  aided  in 
development  and  debugging.  For  final  production,  a  less  expensive  MC68HC1 1 AOFN  is  used,  as 
there  is  no  need  for  internal  EEPROM  or  masked  ROM.  In  volume  a  masked  ROM  or  EPROM 
version  of  the  681 1  would  be  most  suited  as  the  code  could  easily  fit  in  the  8  to  12  kBytes  of  ROM 
available.  This  eliminates  the  need  for  external  support  components  as  well  as  simplifying 
production. 

2.2  MEMORY 

On  the  IR-RAT  board  there  are  provisions  to  support  one  8k  x  8  EPROM  and  one  8k  x  8 
static  RAM.  The  EPROM  used  is  a  2764  or  compatible  unit  in  a  600  mil  wide  DIP  package.  The 
EPROM  is  assigned  to  the  address  range  $E000-$FFFF  in  the  6811s  addressing  space  as  this 
corresponds  to  the  ROM  space  that  is  used  for  most  internal  ROM/EPROM  configurations  on  the 
6811. 

Space  is  provided  on  the  IR-RATs  PC  Board  for  a  300  mil  wide  8k  x  8  static  RAM.  This 
RAM  was  intended  for  software  development  only  as  it  is  physically  mounted  underneath  the 
EPROM.  The  RAM  is  assigned  to  the  $6000-$7FFF  address  space. 

2.3  SERIAL  INTERFACE 

The  IR  RAT  is  designed  to  communicate  with  the  host  computer  via  the  serial  port.  This  is 
pivotal  in  allowing  the  device  to  be  used  with  as  many  different  systems  as  possible.  The  RS- 
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232  signals  are  generated  and  received  through  the  built  in  serial  communications  interface  on  the 
6811  with  signal  levels  supplied  by  a  Maxim  MAX-232  driver.  The  modular  jack  on  the  IR- 
RAT  conducts  the  RS-232  signals.  See  the  attached  diagrams  for  the  pinout  of  the  modular  jack. 

2.4  POWER 

Power  can  reach  the  IR  RAT  in  one  of  two  ways.  First,  the  DC  coaxial  jack  can  be  used  to 
attach  a  9V  DC  adaptor  with  a  positive  center  conductor.  Second  power  can  be  supplied  through 
the  outer  two  conductors  in  the  modular  phone  jack.  As  shown  in  the  schematics,  each  of  these 
power  sources  pass  though  separate  barrier  diodes  to  prohibit  any  hr  Tnful  connections.  For  pinouts 
of  the  modular  jack  see  the  attached  diagrams. 

2.5  RESET  SWITCH 

There  is  space  on  the  IR-R  AT  board  adj  acent  to  the  modular  connector  for  a  reset  pushbutton 
switch,  SI.  This  is  a  normally  open  push-button  switch  that  resets  the  microcontroller.  The  switch 
is  debounced  through  the  reset  controller,  U7.  This  switch  appears  only  on  development  units,  as 
final  production  units  should  not  need  a  reset  circuit.  The  software  should  be  robust  enough  to 
avoid  the  need  for  an  external  reset. 


2.6  POWER  INDICATOR 

LED  D4,  and  resistor  R5  are  only  necessary  on  development  units  to  indicate  presence  of 

power. 

2.7  INFRARED  RECEIVER 

The  IR  receiver  is  the  Sharp  GP1U52Y,  which  is  a  receiver/demodulator  that  detects  the 
presence  of  a  40  Khz  carrier.  This  connects  to  port  A,  bit  2,  which  is  also  the  Timer  Input  Capture 
1.  This  signal  has  a  high  resting  state  and  becomes  low  only  when  a  40  Khz  carrier  is  detected. 

2.8  INFRARED  LED 

D1  is  an  IR  LED  that  is  designed  to  transmit  IR  signals.  It  is  controlled  directly  by  the 
output  of  I/O  port  A,  bit  3.  As  a  result,  it  can  be  controlled  by  the  timer  output  compare  5  (TOC5). 


Imaging  Systems  Laboratory 


1R-RAT  -II 


When  this  value  is  high,  the  LED  is  on.  For  development,  resistor  R3  should  be  approximately  100 
ohms  to  limit  the  current  that  the  LED  can  draw.  When  it  is  shown  that  the  LED  will  operate  only 
at  some  reduced  duty  cycle  (i.e.  50%)  then  a  lower  value  can  be  used  (approx.  50  ohms)  to  allow 
for  a  more  powerful  IR  signal.  This  should  occur  only  when  the  program  is  sure  not  to  cause  the 
LED  to  stay  on  for  extended  periods  (as  the  Motorola  buffalo  monitor  does). 

2.9  JUMPERS 

There  are  five  jumpers  on  the  IR-RAT  PC  board.  Jumper  1  (the  left  most  jumper)  is  used 
to  place  the  chip  in  expanded  multiplexed  mode  (jumper  removed)  or  ;n  special  test  mode  (jumper 
present).  In  order  to  operate  the  microcontroller  in  single  chip  mode,  hold  the  MOD  A  line  low. 
This  is  accomplished  by  cutting  the  trace  which  connects  jumper  2  to  the  pull  up  resistor  network, 
and  reattaching  the  non-grounded  side  of  the  jumper  to  the  pad  on  the  pull  up  resistor  network  that 
connects  to  MOD  A  (Pin  5).  Then  by  putting  a  jumper  across  jumper  2,  and  leaving  jumper  1  vacant 
the  microcontroller  is  placed  in  single  chip  mode.  See  the  attached  diagram  for  the  procedure. 

The  remaining  four  jumpers  are  attached  to  port  E,  pins  0-3.  Pin  3  corresponds  to  jumper 
5,  pin  2  to  jumper  4,  pin  1  to  jumper  3,  and  pin  0  to  jumper  2.  These  are  provided  to  allow  for 
jumper  selectable  options.  Note  that  use  of  the  Motorola  buffalo  monitor  requires  that  jumper  5  be 
installed.  If  it  is  not  in  place  the  buffalo  monitor  will  attempt  to  start  execution  from  the  EEPROM 
at  address  $B600. 

2.10  MISC 

If  an  EPROM  version  of  the  6811  (i.e.  68HC711)  is  available  and  desired  for  use,  it  is 
possible  to  reduce  the  part  count  on  the  board  significantly.  Assuming  that  there  is  no  need  for  the 
RAM,  the  address  decoding  and  bus  latching  chips,  U2  and  U3  can  be  eliminated.  This  is  also 
possible  if  a  ROM  masked  version  of  the  microcontroller  is  manufactured. 

The  PC  boards  were  fabricated  by  Photobeam/Brookside  in  Waltham,  Massachusetts.  Most 
of  the  other  parts  are  commonly  available  from  a  variety  of  electronic  vendors.  The  only  specialized 
part  was  the  Sharp  IR  received/demodulator. 
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3.  Software  (Firmware)  Design 


3.1  CURRENT  VERSION 

The  current  version  of  the  firmware  available  for  the  IR-RAT  performs  two  very  simple 
functions.  The  first  is  that  it  gets  an  ASCII  character  from  the  serial  port  and  then  encodes  and 
transmits  that  character  as  an  IR  signal.  This  is  the  transmitter  portion  of  the  code.  The  second 
function  is  it  receives  IR  signals  from  a  remote  control  and  if  they  are  in  the  appropriate  format, 
decodes  the  ASCII  character  the  signal  represents  and  send  that  character  over  the  serial  port  to  the 
host  computer.  This  is  the  receiver  portion  of  the  code.  While  the  code  is  fairly  self  explanatory, 
some  brief  explanation  is  required. 

3.2  INFRARED  SIGNAL  FORMAT 

The  IR  signal  is  created  by  turning  the  40  Khz  carrier  on  and  off  for  different  periods  of  time. 
The  periods  of  time  are  measured  by  the  number  of  cycles  of  the  40  kHz  carrier.  The  current 
encoding  scheme  uses  two  values  for  the  periods,  these  are  200  cycles  (long)  and  20  cycles  (short). 
By  using  an  order  of  magnitude  difference,  determination  of  which  value  is  correct  becomes  trivial. 

IR  signals  from  the  RAT  are  composed  of  four  parts,  the  sync,  the  header,  the  data  and  the 
inverted  data.  The  syne  is  a  long  on  pulse.  This  allows  the  receiver  to  "wake  up"  and  the 
microcontroller  time  to  prepare  for  receiving  data.  Once  the  sync  pulse  has  been  sent,  all  of  the 
remaining  periods  of  carrier  presence  (when  the  IR  LED  is  flashing)  are  short,  and  the  data  is 
determined  by  the  length  of  time  that  the  LED  is  not  flashing.  Therefore  a  short  is  considered  to  be 
20  cycles  of  no  IR  activity  followed  by  20  cycles  of  40  kHz  carrier  and  a  long  is  200  cycles  of  IR 
inactivity  followed  by  20  cycles  of  40  kHz  carrier. 

After  the  sync  pulse  is  sent,  a  header  is  sent  to  identify  the  signal  as  a  valid  RAT  signal.  This 
is  a  short-long-short-long-short  pattern.  If  the  decoder  does  not  see  this  pattern  after  it  receives  the 
sync,  it  assumes  that  the  IR  signal  is  from  some  other  source  and  waits  for  the  next  signal. 

Next  the  eight  bits  of  data  representing  the  ASCII  character  are  sent  from  least  to  most 
significant.  A  one  is  represented  by  a  short  signal  and  a  zero  is  represented  by  a  long  signal. 
Following  this  the  data  is  sent  again,  except  this  time  the  representation  is  inverted  with  a  one 
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represented  by  a  long  signal  and  a  zero  represented  by  a  short  signal.  By  using  this  method,  all 
characters  sent  will  take  exactly  the  same  amount  of  time.  An  example  of  the  IR  signal  representing 
the  letter  A  (%01000001)  is  shown  in  figure  1. 


Sync 


Header 


1  0  0  0  0  0  1  0 
Normal  Character 


1000001  0 

Inverted 

Character 


Figure  1  -  IR  Representation  of  character  A  (%0 1000001).  Note  that  this  is  not  to  scale.  In  reality  long  and  short 
times  vary  by  a  factor  of  10. 


3.3  MISC 

There  are  a  few  notes  that  need  to  be  made  about  the  current  firmware  for  the  RAT.  First 
it  is  interrupt  based.  When  the  program  initializes  it  sets  registers  appropriately  and  then  waits  for 
an  interrupt  to  occur,  either  from  the  serial  communications  interface  or  the  timer  input  capture  1. 

Second,  the  IR  RAT  depends  on  relocating  the  internal  RAM  to  location  $1000  and  the 
configuration  registers  to  start  at  $0000.  This  is  done  to  permit  the  tight  loops  necessary  to  generate 
a  40  kHz  carrier  using  a  2  MHz  crystal  and  the  internal  timers  on  the  6811. 

Finally,  the  program  operates  in  batch  mode.  When  transmitting  the  program  computes  all 
of  the  timing  in  advance  and  then  starts  the  transmitting.  While  receiving  the  microcontroller 
receives  all  the  timer  data  and  stores  it  for  processing  after  a  sufficient  amount  of  time  has  passed 
without  IR  activity. 
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Appendix  B  -  Connector  Diagrams 


Black  -  AUX  POWER  IN 
Red  - TXD 
Green  -  RXD 
Yellow  -  GND 


Figure  B-l.  Front  view  of  the  modular  jack  on  the  IR-RAT. 


The  other  end  of  the  modular  plug  wire  can  attach  to  a  female  dB-25  connector  for  use  with  most 
PCs.  The  wiring  connections  are  as  follows. 


Modular  Cable 

YELLOW 

RED 

GREEN 

BLACK 


dB-25 

Pin  7 
Pin  3 
Pin  2 

Not  Connected 


Additionally,  for  prototyping  with  Motorola’s  Buffalo  monitor  pins  5,6,8  and  20  should  be  shorted 
together. 
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Appendix  C  -  Single  Chip  Mode  Board  Modification 


Figure  C-l .  This  shows  the  necessary  board  modifications  to  allow 
jumpers  1  and  2  to  control  MOD  B  and  A  respectively. 
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Appendix  D  -  Source  Code  for  EPROM  Ready  Version 


*  IR-RAT  SOURCE  CODE  -  EPROM  VERSION  of  ratv2.S 

*  BY:  William  H.  Sands  IV  whs@j .gp.cs.cmu.edu 

*  Created  February  26,  1992 

*  Copyright  (c)  1993  -  Carnegie  Mellon  University 

* 

*  Following  is  the  source  code  for  the  IR-RAT.  This  version 

*  is  a  complete  version  that  can  be  compiled  and  loaded  directly 

*  into  EPROM.  It  is  designed  for  EPROM  at  $E000  -  $FFFF . 


*  Constants 


BDRATE 

EQU  $30 

$31  for  4800,  $30  for  9600 

TIMEDELAY 

EQU 

1 

mS  TO  DELAY 

LONG 

EQU 

200 

SHORT 

EQU 

20 

BREAK_PT 

EQU 

100 

*  Memory  map  alias 

RAMBS 

EQU 

$1000 

start  of  internal  ram 

EXRAMBS 

EQU  $6000 

start  of  external  ram 

REGBS 

EQU 

$0000 

start  of  registers 

INTVECBS 

EQU 

$FFD6 

where  interesting  int  vectors  start 

*  Registers 

PORTA 

EQU 

REGBS+$00 

I/O  port  A 

OC1M 

EQU 

REGBS+$0C 

OC1D 

EQU 

REGBS+$0D 

TCNT 

EQU 

REGBS+$0E 

timer  count 

TIC1 

EQU 

REGBS+$10 

timer  input  capture  1 

T0C1 

EQU 

REGBS+$16 

TOC  5 

EQU 

REGBS+$1E 

TCTL1 

EQU 

REGBS+$20 

timer  control  1 

TCTL2 

EQU 

REGBS+$21 

timer  control  2 

TMSK1 

EQU 

REGBS+$22 

timer  mask  1 

TFLG1 

EQU 

REGBS+$23 

timer  flag  1 

TMSK2 

EQU 

REGBS+$24 

timer  mask  2 

BAUD 

EQU 

REGBS+$2B 

SCCR1 

EQU 

REGBS+$2C 

SCCR2 

EQU 

REGBS+$2D 

SC  SR 

EQU 

REGBS+$2E 

SC  DR 

EQU 

REGBS+$2F 

HPRIO 

EQU 

REGBS+$3C 

highest  priority  interrupt 

INIT 

EQU 

$103D 

OPTION 

EQU 

REGBS+$39 

♦Internal  memory 

allocations 

STACK 

EQU 

RAMBS+$40 
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LOWMEM 

EQU 

RAMBS+$00 

HIMEM 

EQU 

RAMBS+$FF 

ORG 

$E000 

copyrt 

FCC 

' (c)  1993  Television  Computer  Company. ' 

FCC 

'All  rights  reserved  worldwide.' 

FCC 

'By:  W.H.  Sands  IV  whs® j .gp.cs.cmu.edu' 

FCC 

'February  26, 

1993' 

********************************************************************* 

*  RESET  VECTOR  - 

This  is  where 

eprom  execution  begins  on  any  reset 

* 

COP/CLOCK/EXT 

RESET/ PWR  UP  etc. 

********************************************************************* 

RESET 

LDAA 

#$13  Set  up  sys  configuration  options  (OPTION) 

STAA 

OPTION  A/D  power  off  -  LEVEL  IRQs  -  Is  COP  TIMEOUT 

LDAA 

#$10 

Set  RAM  to  $1000  and  Registers  to  $0000 

STAA 

INIT 

LDAA 

#$0 

Mask  all  timer  interrupts 

STAA 

TMSK2 

LDS 

#STACK 

Set  the  stack  pointer 

JSR 

ONSCI 

Set  up  the  SCI  Port 

JMP 

main 

Start  execution 

ERRI 

JMP  ERRI 

unk_int 

LDAA 

#$50 

This  routine  is  the  unknown  interrupt 

TAP 

handler.  Sinply  hangs  the  machine. 

STOP 

(necessary) 

★ 

JMP 

UNK_INT 

*  PORTIONS 

OF  OUTA,  OUTSCI  and 

ONSCI  ARE  FROM  THE  6811  BUFFALO  MONITOR  V2 . 5 

OUTA 

PSHA 

Store  variables,  and  put  the 

PSHB 

PSHX 

JSR 

PULX 

PULB 

PULA 

OUTSCI 

character  out  on  the  SCI 

* 

RTS 

OUTSCI 

BSR 

OUTSCI 2 

Puts  a  character  out  on  the  SCI 

CM  PA 

#$0D 

BNE 

OUTSCIl 

LDAA 

#$0A 

BRA 

OUTSCI 2 

OUTSCIl 

CMPA 

#$0A 

BNE 

OUTSCI 3 

LDAA 

#$0D 

OUTSCI2 

LDAB 

SC  SR 

BITB 

#$80 

BEQ 

OUTSCI 2 
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ANDA 

#$7F 

* 

STAA 

RTS 

SC  DR 

ONSCI 

LDAA 

#BDRATE 

STAA 

BAUD 

LDAA 

#$00 

STAA 

SCCR1 

LDAA 

#$0C 

STAA 

RTS 

SCCR2 

initalizes  the  SCI  (serial  port) 


***  START  OF  ACTUAL  IR  RAT  CODE  *** 


main 


loop_temp 


SEI 

LDS 

#STACK 

Reset  stack  pointer 

LDAA 

SCCR2 

Turn  on  serial  RDRF  IRQ 

ORAA 

#$20 

STAA 

SCCR2 

LDAA 

#$13 

Make  sure  level  sensitive  IRQ 

STAA 

OPTION 

CLR 

TCTL1 

Discon,  output  pins  from  timer 

CLR 

PORTA 

Make  sure  IR  LED  is  off 

LDAA 

#$30 

Set  input  capture  1  to  trigger 

STAA 

TCTL2 

on  rising  edge  of  signal 

LDAA 

HPRIO 

Set  highest  priority  input  to  be 

ANDA 

#$F0 

timer  input  capture  1 

ORAA 

#$08 

STAA 

HPRIO 

LDAA 

#$04 

Un-mask  timer  input  capture  1 

STAA 

TMSK1 

STAA 

TFLG1 

LDX 

#stoend 

Point  to  where  to  store  data 

CLI 

WAI 

Go  into  waiting  until  an  interrupt 

JMP 

main 

****  RECEIVER  **** 

*  This  module  receives  the  IR  signal. 

*  When  the  IR  receiver  is  activated,  it  causes  an  interrupt  which 

*  forces  execution  to  begin  at  timer_irq.  It  will  continute  to  look 

*  for  data  until  it  has  filled  memory,  or  it  has  lapped  the  timer. 


LDX 

#stoend 

Point  to  where  to  store  data 

LDD 

TICl 

Get  Timer  Event  Data 

STD 

0,X 

STD 

TOCl 

Reset  the  timeout  timer 

LDAA 

#$84 

Reset  the  interrupt  flag 

STAA 

TFLG1 

LDAB 

#$80 

Leave  only  the  timeout  IRQ 

STAB 

TMSK1 

unmasked 
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timer_irql 


CLI 

DEX 

DEX 


CPX 

#storl 

Test  for  out  of  memory 

BLE 

timeout 

irqJLoop 

BITA 

TFLG1 

Tight  loop  to  check  for  IR 

BEQ 

irq_loop 

activity 

LDD 

TIC1 

Get  Timer  Event  Data 

STD 

0,X 

STD 

TOCl 

Reset  the  timeout  timer 

LDAA 

#$04 

Reset  the  IR  activity  flag 

STAA 

TFLG1 

BRA 

timer_irql 

timeout 

BRA 

timeout 

Endless  loop  for  timing  out 

*  This  interrupt 

routine  is  called 

when  the  timeout  timer  has  lapped 

*  no  IR  activity. 

This  is  the  post 

processsing  routine 

timeout_irq  LDAA 

#$00 

Mask  all  timer  events  from  IRQ 

STAA 

TMSKl 

LDAA 

#$80 

Reset  Timeout  flag 

STAA 

TFLGl 

STX 

point 

Store  the  end  of  data 

JSR 

find_freq 

Determine  the  freq  of  signal 

JSR 

on_of f 

Calculate  the  on/off  cycles 

JSR 

recog 

Perform  recognition  on  signal 

PULX 

Pull  this  interrupt  off  the 

PULX 

stack 

PULX 

PULX 

PULA 

PULA 

Get  CCR  from  stack 

ORA 

#$10 

Set  interrrupt  bit 

PSHA 

Put  CCR  back  on  stack 

LDX 

#main 

Hardcode  a  return  to  main 

TSY 

STX 

7,Y 

RTI 

Go  back  to  main 

*  Since  we  are  dealing  with  a  fixed  frequency,  this  simply  says  that  the 

*  frequency  if  50  cycles,  which  on  a  2  MHz  micro  is  40  kHz. 


find_freq  LDX  #$0032 
STX  freq 
RTS 

*  This  routine  handles  computing  the  values  that  represent  the  series 

*  of  on/off  cycles.  Like  the  actual  timer  data,  the  on/off  frequency 

*  values  are  stored  from  high  to  low  memory.  They  are  16  bit  values 

*  that  terminate  with  a  zero  value.  They  represent  the  number  of  cycles 

*  that  the  signal  is  alternatively  on  and  off. 
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on_off  LDY  istoend 

STY  count 
DEY 
DEY 

on_off_loop  CPY  point 
BLE  finis 
LDD  0, Y 
SUBD  2 , Y 
DEY 
DEY 

LDX  freq 

IDIV 

LSLD 

CPD  freq 
BLT  no_round 
I  NX 

no_round  PSHY 

LDY  count 
STX  0 ,  Y 

DEY 
DEY 

STY  count 
PULY 

JMP  on_c  f  f_l oop 

finis  LDX  #$0000 

LDY  count 
STX  0, Y 
RTS 


Point  to  start  of  data 


Check  to  see  if  were  at  the  end 

Find  the  difference  between  the 
current  value  and  the  next. 

Goto  the  next  timer  event 

Determine  the  number  of  cycles  that 
the  difference  represents 

Perform  rounding  of  the  number  of 
cycles 

Store  the  results 


When  were  done,  store  a  0000  as  a 
tail 


**  This  is  the  ending  routine  for  recog.  Needs  to  be  here  so  that 
**  branches  can  access  it. 

end_delay  LDX  #TIMEDELAY  DELAY  FOR  X  mS 

delay_bit  LDY  #199 
delay_bit_l  LSLD 
DEY 

BNE  delay_bit_l 
DEX 

BNE  delay_bit 
RTS 

*  This  is  the  recognition  routine  that  determines  if  this  is  a  IR-RAT 

*  signal  and  if  it  is  sends  the  ASCII  character  over  the  serial  port. 

recog  LDX  #stoend 

LDD  0,X 

CPD  #BREAK_PT  First  check  from  a  long  on  pulse 

BGT  no_end_here 
JMP  end_delay 
no_end_here  DEX 
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DEX 


JSR 

get_next 

BGT 

end_delay 

JSR 

get_next 

BLT 

end_delay 

JSR 

get_next 

BGT 

end_delay 

JSR 

get_next 

BLT 

end_delay 

JSR 

get_next 

BGT 

CLRA 

CLRB 

end_delay 

CLR 

smal 

No  errors 

LDY 

#$0009 

first_char  LSRA 
ABA 
PSHA 

Get  first  copy  of  the  character 

JSR 

PULA 

get_next_2 

BLT 

CLRB 

first_short 

BRA 

first_long 

first_short  ldab 

#$80 

first_long  TST 

smal 

BNE 

DEY 

end_delay 

Didn't  get  the  whole  first  char 

BNE 

first_char 

STD 

point 

Temp  storage  for  first  character 

CLR 

count 

Temp  storage  for  parity  error 

JSR 

comp_parity 

CMPB 

point+1 

Check  parity  that  was  in  B 

BEQ 

no_par_error 

LDAA 

#$01 

Record  parity  error  on  1 

STAA 

no_par_error  CLRA 
CLRB 

count 

LDY 

#$0009 

second_char  LSRA 
ABA 

PSHA 

Get  second  copy  of  the  character 

JSR 

PULA 

get_next_2 

BGT 

CLRB 

seconcLlong 

BRA 

second_short 

second_long  LDAB 

#$80 

second_short  TST 

smal 

BNE 

DEY 

par_2_err 

BNE 

second_char 

STD 

freq 

temp  storage  for  second  character 
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JSR 

comp_parity 

CMPB 

freq+1 

Check  parity  that  was  in  B 

BEQ 

no_par_2_err 

par_2_err  TST 

count 

BNE 

end_delay_j 

both  have  parity  errors 

LDD 

point 

second  only  has  parity  error 

BRA 

print_it 

no_par_2_err  LDD 

freq 

Get  the  second  copy  of  character 

TST 

count 

BNE 

print_.it 

First  only  has  parity  error  -  #2 

CMPA 

point 

Check  first  and  second  characters 

BNE 

end_delay_j 

Characters  are  not  same 

print_it  JSR 

OUTA 

end_delay_j  JMP 

encLdelay 

get_next  LDD 

0,X 

Gets  the  next  time  value,  and 

BEQ 

end_found 

checks  to  see  if  its  at  the  end 

DEX 

DEX 

DEX 

DEX 

of  the  times 

CPX 

#storl 

BLT 

endLfound 

CPD 

RTS 

end_f ound  PULX 

#BREAK_PT 

JMP 

end_.de  lay 

get_next_2  LDD 

0,X 

Gets  the  next  time  value,  and 

BEQ 

end_found_2 

checks  to  see  if  its  at  the  end 

DEX 

DEX 

of  the  times 

DEX 

DEX 

This  version  if  for  the  bit  checking 

CPX 

#storl 

BLT 

end_found_2 

CPD 

RTS 

#BREAK_PT 

end_found_2  LDAA 

#$FF 

STAA 

RTS 

smal 

Indicates  truncated  sig 

comp_parity  LDY 

#$0008 

Computes  the  actual  parity  of  A  and 

CLRB 

places  it  in  the  MSB  of  B  to 

pari ty_l oop  LSLA 

return 

BCC 

INCB 

no_parity  DEY 

no_parity 

BNE 

parity_loop 

ANDB 

#$01 

LDY 

par_shift  LSLB 

#$0007 
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DEY 

BNE  par_shift 
RTS 


******************************** 
*  TRANSMITTER 

******************************** 


serial_irq 

LDAB 

SCSR 

LDAA 

SC  DR 

STAA 

point 

BITB 

*$20 

BEQ 

end_serial 

JSR 

comp_parity 

STAB 

freq 

JSR 

compute_sig 

JSR 

find_in_freq 

JSR 

flash 

end_serial 

PULA 

ORA 

PSHA 

#$10 

LDX 

TSY 

#main 

STX 

RTI 

7,Y 

compute_sig  ldx 

#stoend 

LDY 

#LONG 

STY 

DEX 

DEX 

0,X 

LDY 

# SHORT 

JSR 

store_pulse 

LDY 

#LONG 

JSR 

store_pulse 

LDY 

# SHORT 

JSR 

store_pulse 

LDY 

#LONG 

JSR 

store_pulse 

LDY 

# SHORT 

JSR 

store_pulse 

LDAA 

point 

LDAB 

#$08 

first_send  LDY 
LSRA 

# SHORT 

BCS 

first_l_shrt 

first_l_lng  LDY 

#LONG 

first_l_shrt  JSR 
DECB 

store_pulse 

BNE 

first_send 

LDY 

# SHORT 

Temp  holder  for  character 


Temp  holder  for  parity 


Get  CCR  from  stack 
Set  Interrrupt  bit 

Hardcode  a  return  to  main 


Store  long  on  pulse 


Store  first  copy  character 


It's  a  one  (short) 
It's  a  zero  (long) 
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TST 

freq 

BNE 

con_p_first 

It's  a  one  (short) 

LDY 

#LONG 

It's  a  zero  (long) 

con_p_first  JSR 

store_pulse 

LDAA 

point 

LDAB 

#$08 

Store  second  copy  character 

second_send  LDY 
LSRA 

#LONG 

BCS 

con_second 

It's  a  one  (long) 

second_l_lng  LDY 

# SHORT 

It's  a  zero  (short) 

con_second  JSR 
DECB 

store_pulse 

BNE 

second_send 

LDY 

#LONG 

TST 

freq 

BNE 

con_p_second 

It's  a  one  (long) 

LDY 

#SHORT 

It's  a  zero  (short) 

con_p_second  JSR 

store_pulse 

LDY 

#$0000 

JSR 

store_pulse 

find_in_freq  LDX 

#$0032 

STX 

RTS 

freq 

flash  LDAA 

#$00 

STAA 

TMSK1 

turn  off  interrupts/etc 

STAA 

TCTL1 

turn  off  control  to  port 

ini t_f lashing  LDD 

TCNT 

Give  some  time  to  start 

ADDD 

#$100 

STD 

TOC  5 

CLR 

PORTA 

turn  off  LED 

CLR 

OC1M 

turn  off  CX:l 

CLR 

OC1D 

LDAA 

#$01 

STAA 

TCTLl 

Toggle  on  OC5 

LDAA 

#$F8 

Reset  any  interrupts  pending 

STAA 

TFLG1 

LDX 

#stoend 

STX 

point 

LDD 

LSRD 

freq 

STD 

smal 

carrier_on  LDY 

0,X 

get  first  on  val 

BEQ 

DEX 

DEX 

done_flash 

STX 

point 

reset_on  LDX 

TOC  5 

LDAB 

smal+1 

LDAA 

#$08 

on_flash  BRCLR 

TFLG1  #$08 

on_flash 
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off_flash 


ABX 

STX 

TOC  5 

ABX 

STAA 

TFLG1 

off_flash  BRCLR 

TFLG1  #$08 

STX 

TOC  5 

STAA 

TFLG1 

DEY 

BNE 

on_flash 

CLR 

TCTL1 

LDX 

point 

LDD 

0,X 

BEQ 

done_flash 

LDA 

freq+1 

MUL 

STD 

count 

LDD 

0,X 

LDB 

freq+1 

MUL 

TBA 

CLRB 

ADDD 

count 

SUBD 

smal 

ADDD 

TOC  5 

STD 

TOC  5 

LDAA 

#$08 

STAA 

TFLG1 

LDAA 

#$01 

STAA 

TCTL1 

DEX 

DEX 

STX 

point 

BRA 

carrier_on 

done_flash  CLR 

TCTLl 

CLR 

PORTA 

CLR 

TMSK1 

RTS 

store_pulse  STY 

0,X 

DEX 

DEX 

LDY 

#SHORT 

STY 

o,x 

DEX 

DEX 

RTS 

disconnect  timer  from  pin 


make  sure  interrupts  are  taken 
care  of  and  LED  off  before  return 


***  interrupt  Vectors  *** 


ORG 

INTVECBS 

FDB 

FDB 

serial_irq 

UNK_INT 

serial_irq  SCI  Serial  System 
SPI  Transfer  Conplete 
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FDB 

UNK_INT 

FDB 

unr_int 

FDB 

UNK_INT 

FDB 

UNK_INT 

FDB 

UNR_INT 

FDB 

UNK_INT 

FDB 

UNK^INT 

FDB 

timeout_irq 

FDB 

UNK_INT 

FDB 

UNK_INT 

FE3 

timer_irq 

FDB 

UNK_INT 

FDB 

UNK_INT 

FDB 

UNK_INT 

FDB 

UNK_INT 

FDB 

UNK^INT 

FDB 

RESET 

FDB 

RESET 

FDB 

RESET 

***  Program 

RAM  allocations 

ORG 

STACK+2 

smal  FCB 

0 

FCB 

0 

freq  FCB 

0 

FCB 

0 

point  FCB 

0 

FCB 

0 

count  FCB 

0 

FCB 

0 

storl  FCC 

9  9 

ORG 

HIMEM-1 

stoend  FCC 

END 

9  9 

Pulse  Accumulator  Input  Edge 

Pulse  Accumulator  Overflow 

Timer  Overflow 

Timer  Output  Compare  5 

Timer  Output  Compare  4 

Timer  Outout  Compare  3 

Timer  Output  Compare  2 

Timer  Output  Compare  1 

Timer  Input  Capture  3 

Timer  Input  Capture  2 

Timer  Input  Capture  1 

Real  Time  Interrupt 

-IRQ 

-XIRQ 

SWI 

Illegal  Opcode  Trap 
COP  Failure 

COP  Clock  Monitor  Fail 
Reset  Vector 


Imaging  Systems  Laboratory 


1R-RAT  - 31 


